home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / CU Amiga 32.adf / IconUtils / AddImageIcons < prev    next >
AmigaDOS Script File  |  1989-04-11  |  775b  |  27 lines
  1. .key ""
  2. failat 30
  3. assign > nil: SAJr.: exists
  4. If WARN
  5.   Echo "*n*n*n  Can't find the disk named SAJr. !!!"
  6.   Echo     "*n    Please Insert it and try again."
  7. ELSE
  8.   Assign SAc: SAJr.:c
  9.   Echo     "*n  Setting up."
  10.   Resident SAc:copy pure
  11.   Resident SAc:If pure
  12.   Resident SAc:EndIf pure
  13.   Copy     SAJr.:s/SculptIcons/.image.info to t:
  14.   CD       ""
  15.   Echo     "*n  Scanning directory."
  16.   List     > t:temp #?.image files LFormat=" If NOT EXISTS *"%s%s.info*" *n  Copy t:.image.info to *"%s.info*" *n ENDIF"
  17.   Echo     "*n  Inserting icons."
  18.   Execute  t:temp
  19.   Echo "*n  To view the new icons, close the*n  window and reopen it."
  20.   Delete   t:temp
  21.   Resident SAc:Copy remove
  22.   Resident SAc:If remove
  23.   Resident SAc:EndIf remove
  24.   Delete   t:.image.info
  25.   Assign SAc:
  26. ENDIF
  27.